home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / Chip Mayıs 2001.iso / prog / share / 07 / ASPFusion / data1.cab / Admin_Pages / Admin / dsp_default.asp < prev    next >
Encoding:
Text File  |  2001-03-25  |  6.3 KB  |  146 lines
  1. <%
  2. on error resume next
  3. dim SecurityBox
  4. if (Session("Index") <> "Index") then
  5.     Response.Redirect "index.asp"
  6. else
  7.     set SecurityBox = Server.CreateObject("AdvFusionBox.FusionBox")
  8. end if
  9. %>
  10. <!--- #include file = "index.js" --->
  11. <html>
  12. <head>
  13. <title>ASPFusion Security Box Administration</title>
  14. </head>
  15. <body bgcolor="#CAE4FF">
  16. <form action="act_default.asp" Method="POST" NAME="defaultform">
  17. <div align="right">
  18. <table width="70%" align="left">
  19.   <tr width="100%" align="right">
  20.     <td><a href="javascript:submit(document.defaultform, document.defaultform.Logout, 'Logout')" onmouseover="window.status='Logout'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Logout</font></a></td>
  21.   </tr>
  22.   <tr width="100%" align="right">
  23.     <td><a href="dsp_changepassword.asp" onmouseover="window.status='Change Password'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Change Password</font></a></td>
  24.   </tr>
  25.   <tr width="100%" align="right">
  26.     <td><a href="dsp_registration.asp" onmouseover="window.status='Registration'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Registration</font></a></td>
  27.   </tr>
  28.   <tr width="100%" align="right">
  29.     <td><a href="dsp_websitesecurity.asp" onmouseover="window.status='Web Site Security'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Web Site Security</font></a></td>
  30.   </tr>
  31.   <tr width="100%" align="right">
  32.     <td><a href="dsp_welcome.asp" onmouseover="window.status='<< Back'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1"><< Back</font></a></td>
  33.   </tr>
  34. </table>
  35.   <table cellpadding="0" cellspacing="1" width="25%">
  36.     <tr width="100%" align="right">
  37.       <td><img src="Images/aspfusion.gif"></td>
  38.     </tr>
  39.   </table>
  40. </div>
  41. <br>
  42. <table cellpadding="0" width="100%">
  43. <input type="hidden" value="" name="Logout">
  44. <input type="hidden" value="" name="Set">
  45.   <tr>
  46.     <td><br>
  47.      <%if Request.QueryString("result") = "0" then%>
  48.         <p align="left"><font color="#FF0000" face="Arial" size="2"><b><%=Session("Error")%></b></p>
  49.      <%else%>
  50.         <p> </p>
  51.      <%end if%>
  52.     </td>
  53.   </tr>
  54.   <tr>
  55.      <td colspan="2">
  56.        <font face="Arial" size="2" color="#9D9D9D">Specify default settings for ASPFusion Security Box. Whenever
  57.        a new ASPFusion Security Box is created, these settings will be automatically assigned to it.</font>
  58.      </td>
  59.   </tr>
  60.   <tr>
  61.      <td><br>
  62.        <b><font face="Arial" size="3" color="#000080">Default Settings for ASPFusion Security Box</font></b>
  63.      </td>
  64.   </tr>
  65.   <tr>
  66.      <td><br>
  67.        <input type="checkbox" name="SelectAll" value="ON" onclick="return selectall(document.defaultform, document.defaultform.Components);"><b><font face="Arial" size="3" color="#000080">Select All</font></b>
  68.      </td>
  69.   </tr>
  70.   <tr>
  71.        <td>
  72.                 <%set Result = SecurityBox.ReturnValues("Admin.ini", "Settings", "Installed")
  73.                   set Rst = SecurityBox.ReturnValues("Admin.ini", "Settings", "Default")%>
  74.                       <table width="100%" cellpadding="5" cellspacing="5">
  75.                         <%dim count
  76.                           dim number
  77.                           dim flag
  78.                           count = 0
  79.                           number = 0
  80.                           for each Member in Result
  81.                               flag = false
  82.                               number = number + 1
  83.                                if (count = 0) then%>
  84.                                  <tr>
  85.                             <%end if
  86.                               count = count + 1%>
  87.                             <td valign="top"><b><font face="Arial" size="2"><%=number&"."%></font></b></td><td valign="top"><INPUT Name="Components" Type="checkbox" value="<%=member.value%>"
  88.                                     <%for each mem in Rst%>
  89.                                         <%if (member.value = mem.value) then%>
  90.                                             <%flag = true%>
  91.                                              checked
  92.                                         <%end if
  93.                                       next%>><font face="Arial" size="2"><%=member.value%></font>
  94.                                     <p><SELECT NAME="<%=member.value%>" multiple size="3">
  95.                                        <%set Result1 = SecurityBox.ReturnValues("Admin.ini", "AllMethods", member.value)%>
  96.                                        <%set Rst1 = SecurityBox.ReturnValues("Admin.ini", "DefaultMethods", member.value)%>
  97.                                        <%dim found
  98.                                          found = false
  99.                                          for each Member1 in Result1
  100.                                                found = true%>
  101.                                                 <OPTION value="<%=Member1.value%>"
  102.                                              <%for each mem1 in Rst1
  103.                                                  if (mem1.value = member1.value) and (flag) then%>
  104.                                                       selected
  105.                                                  <%end if
  106.                                                  next%>><%=Member1.value%></OPTION>
  107.                                         <%next
  108.                                         if (not found) then%>
  109.                                             <option value="">[None Available]</option>
  110.                                         <%end if%>
  111.                                     </SELECT></p>
  112.                             </td>
  113.                             <%if (count = 4) then%>
  114.                                  </tr>
  115.                                  <%count = 0%>
  116.                             <%end if
  117.                           next
  118.                           if (number = 0) then%>
  119.                             <INPUT type="hidden" Name="Components">
  120.                           <%end if
  121.                         set Rst = nothing
  122.                         set Result = nothing
  123.                         set Rst1 = nothing
  124.                         set Result1 = nothing
  125.                         set SecurityBox = nothing%>
  126.                       </table>
  127.       </td>
  128.     </tr>
  129. </table>
  130. <br>
  131. <table cellpadding="0" cellspacing="1" width="25%">
  132.   <tr width="100%" align="left">
  133.     <td><a href="javascript:submit(document.defaultform, document.defaultform.Set, 'Set')" onmouseover="window.status='Set'; return true" onmouseout="window.status='';return true"><img src="Images/default.gif" border="0"></a></td>
  134.   </tr>
  135. </table>
  136. <table align="center" width="100%">
  137.   <tr>
  138.     <td align="center" valign="bottom">
  139.       <font face="Arial" color="black" size="1">Copyright ⌐ 2000, Advanced Communications</font>
  140.     </td>
  141.   </tr>
  142. </table>
  143. </form>
  144. </body>
  145. </html>
  146.